Imports System.Data.SqlClient
Imports System.Data
Partial Class Client_frmShowFeedsaspx
    Inherits System.Web.UI.Page
    Dim _UserId As String
    Dim _bo As New Bo
    Dim dt As New DataTable
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        _UserId = Session("UserId")
        dt = _bo.getFeeds()
        DataList.DataSource = dt
        DataList.DataBind()
    End Sub

    Protected Sub btnDone_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDone.Click
        Session("UserId") = _UserId
        Response.Redirect("frmdatalist.aspx")
    End Sub

    Protected Sub btnAddMyFeed_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddMyFeed.Click
        Session("UserId") = _UserId
        Response.Redirect("frmFeedback.aspx")
    End Sub
End Class
